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16-SEP-1984 01:10:3 AX/VMS o V04-00 
6-SEP- 2138 i 39: 3 UATHRTL. Ske JRTHCLOG. MAR; 1 
- TITLE MINSELOG COMPLEX LOGARI THM 

IDENT /1=005/ ; File: MTHCLOG.MAR Edit: SBL1003 


agg aminuts ata ati i eat hc ica at let riche teal 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE re NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF one NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Fauuetckecee” O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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g FACILITY: MATH LIBRARY 


; ; ABSTRACT: 


This module contains routine MTHS$CLOG - perform complex log 


; VERSION: 0 
HISTORY: 


; AUTHOR 


Jonathan M. Taylor, 19-JUL-77: Version 0 


; MODIFIED BY: 
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-SBTTL HISTORY ; Detailed Current Edit History 


p ore History for Version 0 of MTHSCLOG 


1-98) = ° naa. fo" the pyaber Wreck tees gpyrigns eatice He 7h last edit 
umbér for version Ov- 
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; INCLUDE FILES: 
OERR.MAR 


EXTERNAL SYMBOLS: 
-GLOBL MTHSATAN2 
-GLOBL MTHSCABS 
«GLOBL MTHSALOG_RS5 
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72 ; MACROS: 
"3 3 NONE 
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76 ; PSECT DECLARATIONS: 
78 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
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; EQUATED SYMBOLS: 


00000004 argadr = 4 ; offset from AP to find arg adr 
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po+ 
; FUNCTIONAL DESCRIPTION: 


The Natural Logaritm of a complex number (r, i) is 
computed as follows: 


CLOG(r, 1) = (ALOG(CABS(r, 1)), ATAN2(i, r)) 
CALLING SEQUENCE: 
Natural_log.wfc.v = MTH$CLOG(arg.rfc.r) 


INPUT PARAMETERS: 
The one parameter is the address of a complex number (r, i), 
where r and i are both single-precision floating point values. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


Signals Reserved Operand if the input parameter is bad (-0.0) 


eENTRY MTHSCLOG, “M<R2,R3,R4,R5,RO> 
MTHSFLAG_ JACKET 3 set up error handler 


MOVAB G“MTHSSJACKET_HND, (FP) 
set handler address to jacket 


handler 
OVL peace en? RO 3 RO => (r, i) 
PUSHAF (RO)+ ; push addr(r) 
PUSHL RO) ; push addr (i) 
CALLS #2, G*MTHSATAN2 : RO = ATAN2(i, Fr) 
MOVL + R6 = ATANO(i. ) 
CALLG (AP), G*MTHSCABS : RO = CABS((r, i)) 
JSB G*MTHSALOG_R ; RO = ALOG(CABS((r, i5)) 
MOVL R6, R1 : R1 = ATAN2(i, Fr) 


MTHSCLOG 


Symbol table 1:2 


ARGADR = 00000004 
MTHSSJACKET_HND teeeeree Xx (01 
MTHSAL 


0G_R5 eererere 
MTHSATANZ eeererer G 6 
MTHSCABS eerereer G 
MTHSCLOG 00000000 RG 1 
Goeococoooeecosoece} 
! Psect synopsis ! 
poowowwoooeococonn+ 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 
_MTHSCODE o000002C 44.) O01 ¢ 1.) PIC USR CON” REL LCL 
¢eeonne rrr: 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 6 9: 8: 0.09 00:00:00.78 
pomnens processing + Bo: : 8-83 B80 :03 24 
Syabol table sort 39 3:8 9.0 90:00:00.00 
Symbol table output 0:00:00.01 00:00:00.01 
Psect synopsis output Ba 0:00.0 00:00:00.02 
Cross-reference output 0: te et ae 
Assembler run totals 28 00:00:01. 0:00:12.39 


The working et Limit was 900 peges 

bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

sid were 10 pages of symbol table space allocated to hold 6 non-local and 0 local symbols. 
197 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to “define 1 macro. 


H ; Macro Library statistics H 


Macro Library name Macros defined 
"$255$DUA28: CSYSLIBISTARLET. MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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MTHRTL.SR JMTHCLOG.MAR; 1 (4) 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCLOG/OBJ=OBJS$:MTHCLOG MSRCS:MTHJACKET/UPDATE=(ENHS :MTHJACKET) *MSRCS: 
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